home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / DB / UTIL72 / ULCASE5.CTL < prev    next >
Encoding:
Text File  |  1995-05-09  |  1.5 KB  |  50 lines
  1. -- Copyright (c) 1991 by Oracle Corporation 
  2. --   NAME
  3. --     ulcase5.ctl - <one-line expansion of the name>
  4. --   DESCRIPTION
  5. --     <short description of component this file declares/defines>
  6. --   RETURNS
  7. --
  8. --   NOTES
  9. --     <other useful comments, qualifications, etc.>
  10. --   MODIFIED   (MM/DD/YY)
  11. --    ksudarsh   04/08/94 -  merge changes from branch 1.3.710.1
  12. --    ksudarsh   02/21/94 -  quote dat file
  13. --    ksudarsh   03/11/93 -  make filename lowercase 
  14. --    ksudarsh   11/06/92 -  infile is ulcase5 
  15. --    cheigham   08/28/91 -  Creation 
  16. -- 
  17. -- $Header: ulcase5.ctl 7020100.1 94/09/23 22:19:34 cli Generic<base> $ case5.ctl 
  18. -- 
  19. -- Loads EMP records from first 23 characters
  20. -- Creates and loads PROJ records for each PROJO listed
  21. -- for each employee
  22.  
  23. LOAD DATA
  24. INFILE 'ulcase5.dat'
  25. BADFILE 'ulcase5.bad'
  26. DISCARDFILE 'ulcase5.dis'
  27. REPLACE
  28.  
  29. INTO TABLE EMP
  30.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  31.    ENAME    POSITION(6:15)  CHAR,
  32.    DEPTNO   POSITION(17:18) CHAR,
  33.    MGR      POSITION(20:23) INTEGER EXTERNAL)
  34.  
  35. INTO TABLE PROJ
  36. -- PROJ has two columns, both not null: EMPNO and PROJNO
  37. WHEN PROJNO != '   '
  38.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  39.    PROJNO   POSITION(25:27) INTEGER EXTERNAL)   -- 1st proj
  40.  
  41. INTO TABLE PROJ
  42. WHEN PROJNO != '   '
  43.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  44.    PROJNO   POSITION(29:31) INTEGER EXTERNAL)   -- 2nd proj
  45.  
  46. INTO TABLE PROJ
  47. WHEN PROJNO != '   '
  48.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  49.    PROJNO   POSITION(33:35) INTEGER EXTERNAL)   -- 3rd proj    
  50.